home *** CD-ROM | disk | FTP | other *** search
- { Declaring function RdKey using the assembly coded form
- in LISTING 2 as a Turbo Pascal external. RdKey.asm is
- assembled in TASM 1.0 or MASM 5.0 and RdKey.obj is made
- available to the TP5.x compiler.
- }
-
- interface
-
- type
- KeyRec = record
- ch : char;
- sc : byte;
- end;
-
- function RdKey(var Grabber : KeyRec) : Char;
-
- implementation
-
- {$L RDKEY.OBJ}
-
- function RdKey{(var Grabber : KeyRec) : Char}; external;
-
-